Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_3216.txt

Text File | 1990-04-17 | 20KB | 854 lines

-- card: 3216 from stack: in
-- bmap block id: 4019
-- flags: 0000
-- background id: 2585
-- name: Hallway2


-- part 43 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=0 top=0 right=29 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: title bar


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=66 right=294 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  send mouseUp to cd fld "3"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put cd fld 3 into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=140 top=85 right=269 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  send mouseUp to cd fld "4"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put cd fld 4 into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=325 top=120 right=218 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  send mouseUp to cd fld "7"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put cd fld 7 into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=298 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exit
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  set lockscreen to true
  go to cd "Hallway1"
  put "Main Hallway" into bkgnd fld "FloorName"
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put "Back to Main Hallway" & return & "click to go back" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=48 top=37 right=52 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 10
-- style flags: 10240
-- line height: 13
-- part name:


-- part 27 (field)
-- low flags: 80
-- high flags: 2004
-- rect: left=114 top=209 right=298 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8448
-- line height: 12
-- part name: Explainer


-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=49 top=37 right=56 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 10
-- style flags: 10240
-- line height: 13
-- part name: 5
----- HyperTalk script -----
on mouseUp
  global env,sol,service,foundation,theRoom
  global hall,floor,lastRoom,tidyUpNow
  set cursor to busy
  set lockscreen to true
  --∆ Get the name they click from the door sign
  get me
  put me into choice
  --∆ Test for an empty room
  if choice is "*" then
    if env is not "Mac" then
      answer "No" && env && "solutions are installed here yet."
    else
      put "Macintosh" into nameChange
      answer "No" && nameChange && "solutions are installed here yet."
    end if
    exit mouseUp
  end if
  --∆ Track the solution, network service, or network foundation chosen
  --∆ and 1st part of appropriate room name
  if floor is 3 then
    put choice into sol
    put "" into level
  else
    if floor is 2 then
      put choice into service
      put "Network " into level
    else
      if floor is 1 then
        put choice into foundation
        put "Hardware " into level
      end if
    end if
  end if
  --∆ Determine 2nd part of room name for the correct environment room
  --∆ There are three types of rooms at each of three levels: The levels
  --∆ are; Application, Network Services, and Network Foundation.  The
  --∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
  --∆ The hardware level uses only one type of room.
  if env is "PC" then
    put "RoomMicro" into room
  else
    if env is "Mac" then
      put "RoomMac" into room
    else
      put "Room" into room
    end if
  end if
  --∆ Track the hall entered from
  put the short name of this card into hall
  --∆ Check for change of room
  put env && sol into newRoom
  if lastRoom <> newRoom then put true into tidyUpNow
  --∆ Now concatenate level and environment data and enter that room.
  if floor is not 1 then
    put (level & room) into theRoom
  else
    put "hardware room" into theRoom
  end if
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put me into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=145 top=57 right=75 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 10
-- style flags: 10240
-- line height: 13
-- part name: 6
----- HyperTalk script -----
on mouseUp
  global env,sol,service,foundation,theRoom
  global hall,floor,lastRoom,tidyUpNow
  set cursor to busy
  set lockscreen to true
  --∆ Get the name they click from the door sign
  get me
  put me into choice
  --∆ Test for an empty room
  if choice is "*" then
    if env is not "Mac" then
      answer "No" && env && "solutions are installed here yet."
    else
      put "Macintosh" into nameChange
      answer "No" && nameChange && "solutions are installed here yet."
    end if
    exit mouseUp
  end if
  --∆ Track the solution, network service, or network foundation chosen
  --∆ and 1st part of appropriate room name
  if floor is 3 then
    put choice into sol
    put "" into level
  else
    if floor is 2 then
      put choice into service
      put "Network " into level
    else
      if floor is 1 then
        put choice into foundation
        put "Hardware " into level
      end if
    end if
  end if
  --∆ Determine 2nd part of room name for the correct environment room
  --∆ There are three types of rooms at each of three levels: The levels
  --∆ are; Application, Network Services, and Network Foundation.  The
  --∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
  --∆ The hardware level uses only one type of room.
  if env is "PC" then
    put "RoomMicro" into room
  else
    if env is "Mac" then
      put "RoomMac" into room
    else
      put "Room" into room
    end if
  end if
  --∆ Track the hall entered from
  put the short name of this card into hall
  --∆ Check for change of room
  put env && sol into newRoom
  if lastRoom <> newRoom then put true into tidyUpNow
  --∆ Now concatenate level and environment data and enter that room.
  if floor is not 1 then
    put (level & room) into theRoom
  else
    put "hardware room" into theRoom
  end if
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put me into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 34 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=205 top=77 right=92 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: 7
----- HyperTalk script -----
on mouseUp
  global env,sol,service,foundation,theRoom
  global hall,floor,lastRoom,tidyUpNow
  set cursor to busy
  set lockscreen to true
  --∆ Get the name they click from the door sign
  get me
  put me into choice
  --∆ Test for an empty room
  if choice is "*" then
    if env is not "Mac" then
      answer "No" && env && "solutions are installed here yet."
    else
      put "Macintosh" into nameChange
      answer "No" && nameChange && "solutions are installed here yet."
    end if
    exit mouseUp
  end if
  --∆ Track the solution, network service, or network foundation chosen
  --∆ and 1st part of appropriate room name
  if floor is 3 then
    put choice into sol
    put "" into level
  else
    if floor is 2 then
      put choice into service
      put "Network " into level
    else
      if floor is 1 then
        put choice into foundation
        put "Hardware " into level
      end if
    end if
  end if
  --∆ Determine 2nd part of room name for the correct environment room
  --∆ There are three types of rooms at each of three levels: The levels
  --∆ are; Application, Network Services, and Network Foundation.  The
  --∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
  --∆ The hardware level uses only one type of room.
  if env is "PC" then
    put "RoomMicro" into room
  else
    if env is "Mac" then
      put "RoomMac" into room
    else
      put "Room" into room
    end if
  end if
  --∆ Track the hall entered from
  put the short name of this card into hall
  --∆ Check for change of room
  put env && sol into newRoom
  if lastRoom <> newRoom then put true into tidyUpNow
  --∆ Now concatenate level and environment data and enter that room.
  if floor is not 1 then
    put (level & room) into theRoom
  else
    put "hardware room" into theRoom
  end if
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put me into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 36 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=272 top=92 right=105 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: 8
----- HyperTalk script -----
on mouseUp
  global env,sol,service,foundation,theRoom
  global hall,floor,lastRoom,tidyUpNow
  set cursor to busy
  set lockscreen to true
  --∆ Get the name they click from the door sign
  get me
  put me into choice
  --∆ Test for an empty room
  if choice is "*" then
    if env is not "Mac" then
      answer "No" && env && "solutions are installed here yet."
    else
      put "Macintosh" into nameChange
      answer "No" && nameChange && "solutions are installed here yet."
    end if
    exit mouseUp
  end if
  --∆ Track the solution, network service, or network foundation chosen
  --∆ and 1st part of appropriate room name
  if floor is 3 then
    put choice into sol
    put "" into level
  else
    if floor is 2 then
      put choice into service
      put "Network " into level
    else
      if floor is 1 then
        put choice into foundation
        put "Hardware " into level
      end if
    end if
  end if
  --∆ Determine 2nd part of room name for the correct environment room
  --∆ There are three types of rooms at each of three levels: The levels
  --∆ are; Application, Network Services, and Network Foundation.  The
  --∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
  --∆ The hardware level uses only one type of room.
  if env is "PC" then
    put "RoomMicro" into room
  else
    if env is "Mac" then
      put "RoomMac" into room
    else
      put "Room" into room
    end if
  end if
  --∆ Track the hall entered from
  put the short name of this card into hall
  --∆ Check for change of room
  put env && sol into newRoom
  if lastRoom <> newRoom then put true into tidyUpNow
  --∆ Now concatenate level and environment data and enter that room.
  if floor is not 1 then
    put (level & room) into theRoom
  else
    put "hardware room" into theRoom
  end if
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put me into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=323 top=104 right=118 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: 9
----- HyperTalk script -----
on mouseUp
  global env,sol,service,foundation,theRoom
  global hall,floor,lastRoom,tidyUpNow
  set cursor to busy
  set lockscreen to true
  --∆ Get the name they click from the door sign
  get me
  put me into choice
  --∆ Test for an empty room
  if choice is "*" then
    if env is not "Mac" then
      answer "No" && env && "solutions are installed here yet."
    else
      put "Macintosh" into nameChange
      answer "No" && nameChange && "solutions are installed here yet."
    end if
    exit mouseUp
  end if
  --∆ Track the solution, network service, or network foundation chosen
  --∆ and 1st part of appropriate room name
  if floor is 3 then
    put choice into sol
    put "" into level
  else
    if floor is 2 then
      put choice into service
      put "Network " into level
    else
      if floor is 1 then
        put choice into foundation
        put "Hardware " into level
      end if
    end if
  end if
  --∆ Determine 2nd part of room name for the correct environment room
  --∆ There are three types of rooms at each of three levels: The levels
  --∆ are; Application, Network Services, and Network Foundation.  The
  --∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
  --∆ The hardware level uses only one type of room.
  if env is "PC" then
    put "RoomMicro" into room
  else
    if env is "Mac" then
      put "RoomMac" into room
    else
      put "Room" into room
    end if
  end if
  --∆ Track the hall entered from
  put the short name of this card into hall
  --∆ Check for change of room
  put env && sol into newRoom
  if lastRoom <> newRoom then put true into tidyUpNow
  --∆ Now concatenate level and environment data and enter that room.
  if floor is not 1 then
    put (level & room) into theRoom
  else
    put "hardware room" into theRoom
  end if
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put me into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=345 top=5 right=33 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: envName


-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=340 top=27 right=55 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Floor


-- part 40 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=14 top=0 right=29 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: HallName


-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=208 top=97 right=250 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  send mouseUp to cd fld "5"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put cd fld 5 into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=272 top=111 right=232 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  send mouseUp to cd fld "6"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put cd fld 6 into roomsName
  if roomsName is not "*" then
    put roomsName & " Door" & return & "click once to enter" into fld "Tell"
  else
    put "No solutions are" & return & "installed here yet" into fld "Tell"
  end if
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part contents for card part 30
----- text -----
Print Service

-- part contents for card part 31
----- text -----
Terminal Emulation

-- part contents for card part 34
----- text -----
Translation

-- part contents for card part 36
----- text -----
Network Management

-- part contents for card part 35
----- text -----
Resource Sharing

-- part contents for card part 13
----- text -----
Digital

-- part contents for card part 37
----- text -----
Network Services

-- part contents for card part 40
----- text -----
Around Corner